1 CLEAR,,4:DEFGR$(0)=32,17,16,31,3,62,64,0:DEFGR$(1)=224,240,254,254,240,24,6,0:DEFGR(2)=14,240,246,254,248,16,224,0:DEFGR$(3)=0,24,57,191,57,24,0,0:A$(0)=" "+GR$(0)+GR$(1):A$(1)=" "+GR$(0)+GR$(2):B=15:SCREEN,7,7:C$="  ":FORJ=1TO21:LOCATE0,0,0
2 CLS:PRINTJ:FORK=0TOJ*9:PSET(RND*39+9,RND*24)GR$(3),1:NEXT:FORA=0TO37:COLOR4:LOCATEA,B:PRINTA$(I):LOCATEA,B-1:PRINTC$:LOCATEA,B+1:PRINTC$:S=STICK(0):B=B+(S=1ANDB>1)-(S=5ANDB(22):IFPOINT(A*8+28,B*8+4)<>1THENPLAY"L15RE":I=1-1:NEXTA,J:CLS:PRINT"GAGNE!"